Dim subtotal, shipping, ordertotal
shipping = 5
subtotal = 199
ordertotal = subtotal + shipping
msgbox("Kwota zamwienia wynosi (PLN): " & ordertotal)
